home *** CD-ROM | disk | FTP | other *** search
/ El Mac 8 / El Mac 8.iso / Shareware / Demos / OpenStack™ (Demo US) / OpenStack™ Demo / Objects Library (Demo) / Others / Column / Column.rsrc / HSCR_6001_DirectActionScript < prev    next >
Encoding:
Text File  |  1995-10-23  |  367 b   |  10 lines
  1. on namedScr
  2.   global gOpenStackInfos
  3.   put line 9 of gOpenStackInfos into prevTargetObj
  4.   put line 8 of gOpenStackInfos into curTargetObj
  5.  do "set the left of "&curTargetObj&" to the right of "&prevTargetObj
  6. do "put "&prevTargetObj&" into theName"
  7. delete last char of theName
  8. delete last char of theName
  9. do "set the name of "&curTargetObj&" to "&theName
  10. end namedScr